home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
126-150
/
disk_130
/
patedit
/
pateditsubs.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
6KB
|
245 lines
/* subroutines to make pattern play program work */
#include "stdio.h"
#include "fcntl.h"
extern struct Screen *sC;
extern struct Window *wG;
extern struct RastPort *rpG;
extern int mousex, mousey;
static char def_name[50] = "";
static char def_dir[50] = "";
struct patdata
{
unsigned int ourpattern[32], power_of_2, pen1color, pen2color;
} it;
extern struct Gadget Pen1;
DoPen1()
{
it.pen1color= (mousex-Pen1.LeftEdge)/(Pen1.Width/4)+4*((mousey-
Pen1.TopEdge)>Pen1.Height/2);
fillsamples();
}
extern struct Gadget Pen2;
DoPen2()
{
it.pen2color= (mousex-Pen2.LeftEdge)/(Pen2.Width/4)+4*((mousey-
Pen2.TopEdge)>Pen2.Height/2);
fillsamples();
}
extern struct Gadget Pen1Sample, Pen2Sample, Bigsample;
fillsamples()
{
SetAPen(rpG, (long)it.pen1color);
SetAfPt(rpG, 0l, 0l);
SetDrMd(rpG, JAM1);
RectFill(rpG, (long)Pen1Sample.LeftEdge, (long)Pen1Sample.TopEdge,
(long)(Pen1Sample.LeftEdge+Pen1Sample.Width),
(long)(Pen1Sample.TopEdge+Pen1Sample.Height));
SetAPen(rpG, (long)it.pen2color);
RectFill(rpG, (long)Pen2Sample.LeftEdge, (long)Pen2Sample.TopEdge,
(long)(Pen2Sample.LeftEdge+Pen2Sample.Width),
(long)(Pen2Sample.TopEdge+Pen2Sample.Height));
SetAPen(rpG, (long)it.pen1color);
SetBPen(rpG, (long)it.pen2color);
SetDrMd(rpG, JAM1|JAM2);
SetAfPt(rpG, it.ourpattern, (long)it.power_of_2);
RectFill(rpG, (long)Bigsample.LeftEdge, (long)Bigsample.TopEdge,
(long)(Bigsample.LeftEdge+Bigsample.Width),
(long)(Bigsample.TopEdge+Bigsample.Height-1));
RefreshGadgets(&Pen1Sample, wG, 0l);
}
extern struct Gadget Grid;
DoGrid()
{
int bit, word, mask;
bit = (mousex-Grid.LeftEdge)/(Grid.Width/16);
mask=0x8000>>bit;
word= (mousey-Grid.TopEdge)/(Grid.Height/32);
if (word>=(1<<it.power_of_2))
{ DisplayBeep(0l);
return;
}
it.ourpattern[word]^=mask;
drawbit(bit, word, it.ourpattern[word]&mask);
fillsamples();
}
drawbit(bit, word, flag)
int bit, word, flag;
{
SetAPen(rpG, flag? 0l: 1l);
SetAfPt(rpG, 0l, 0l);
SetDrMd(rpG, JAM1);
RectFill(rpG, (long)(Grid.LeftEdge+4*bit), (long)(Grid.TopEdge+4*word),
(long)(Grid.LeftEdge+4*bit+2), (long)(Grid.TopEdge+4*word+2));
}
extern struct PropInfo SizerSInfo;
SetSize()
{
unsigned int x, y, size, mask;
x=SizerSInfo.VertPot>>11;
for(size=1, it.power_of_2=0; x; x=x>>1, size*=2, ++it.power_of_2);
SetAPen(rpG, 3l);
SetAfPt(rpG, 0l, 0l);
SetDrMd(rpG, JAM1);
RectFill(rpG, (long)(Grid.LeftEdge), (long)(Grid.TopEdge),
(long)(Grid.LeftEdge+Grid.Width-1),
(long)(Grid.TopEdge+Grid.Height-1));
for (x=0, mask=0x8000; x<16; ++x, mask=mask>>1)
{ for (y=0; y<size; ++y)
drawbit(x, y, mask&it.ourpattern[y]);
}
fillsamples();
}
Clearit()
{
int i;
for (i=0; i<32; ++i) it.ourpattern[i]=0;
SetSize();
}
char *index();
call_get_fname(filename, greet)
char filename[], *greet;
{
char *p;
int t;
if (get_fname(wG,sC,greet,def_name,def_dir))
{
if ((p=index(def_name, '.'))) *p=0;
if (def_dir[0])
{ strcpy(filename, def_dir);
if ((t=filename[strlen(filename)-1]!=':') && t!='/')
strcat(filename, "/");
}
else filename[0]=0;
strcat(filename,def_name);
strcat(filename,".pat");
return 1;
}
return 0;
}
Loadit()
{
char filename[70];
int fileno;
if (call_get_fname(filename, "Load"))
{
if ((fileno=open(filename, O_RDONLY))==-1)
{
badexit: if (fileno!=-1) close(fileno);
DisplayBeep(sC);
return -1;
}
if (read(fileno, &it, sizeof(struct patdata))==0) goto badexit;
close(fileno);
SizerSInfo.VertPot=((1<<it.power_of_2)-1)<<11;
}
SetSize();
}
Saveit()
{
char filename[70], *p;
int fileno, t;
FILE *file;
if (call_get_fname(filename, "Save"))
{
if ((fileno=open(filename, O_RDWR|O_CREAT))==-1)
{
badexit: if (fileno!=-1) close(fileno);
DisplayBeep(sC);
return -1;
}
if (write(fileno, &it, sizeof(struct patdata))==-1) goto badexit;
close(fileno);
p=index(filename,'.'); *p=0;
strcat(filename,".h");
if (!(file=fopen(filename, "w"))) goto badexit;
fprintf(file, "char %s[]=\n{ ", def_name);
for (t=0; t<((1<<it.power_of_2)-1); ++t)
fprintf(file, "0x%04.4x,\n ", it.ourpattern[t]);
fprintf(file, "0x%04.4x\n};\n", it.ourpattern[t]);
fprintf(file, "#define %s_size %dl\n", def_name, it.power_of_2);
fclose(file);
}
SetSize();
}
init()
{
int swatchwidth, swatchheight, x;
swatchwidth=Pen1.Width/4; swatchheight=Pen1.Height/2;
SetAfPt(rpG, 0l,0l);
SetDrMd(rpG, JAM1);
for (x=0; x<4; ++x)
{ SetAPen(rpG, (long)x);
RectFill(rpG, (long)(Pen1.LeftEdge+x*swatchwidth), (long)Pen1.TopEdge,
(long)(Pen1.LeftEdge+(x+1)*swatchwidth-1),
(long)(Pen1.TopEdge+swatchheight-1));
RectFill(rpG, (long)(Pen2.LeftEdge+x*swatchwidth), (long)Pen2.TopEdge,
(long)(Pen2.LeftEdge+(x+1)*swatchwidth-1),
(long)(Pen2.TopEdge+swatchheight-1));
SetAPen(rpG, (long)(x+4));
RectFill(rpG, (long)(Pen1.LeftEdge+x*swatchwidth),
(long)(Pen1.TopEdge+swatchheight),
(long)(Pen1.LeftEdge+(x+1)*swatchwidth-1),
(long)(Pen1.TopEdge+Pen1.Height-1));
RectFill(rpG, (long)(Pen2.LeftEdge+x*swatchwidth),
(long)(Pen2.TopEdge+swatchheight),
(long)(Pen2.LeftEdge+(x+1)*swatchwidth-1),
(long)(Pen2.TopEdge+Pen2.Height-1));
}
SizerSInfo.VertPot=0x7fff;
SetSize();
}
extern struct Requester RequesterStructure2;
tellit()
{
Request(&RequesterStructure2, wG);
}